SuperHack/SuperHack CD.bin/CODING/VBASIC/MCSECURE.ZIP/_GZIP.FRM

Visual Basic Form | 1996-08-25 | 5.2 KB | 148 lines

VERSION 4.00
Begin VB.Form frmGZip
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "GZip"
   ClientHeight    =   4605
   ClientLeft      =   1425
   ClientTop       =   2250
   ClientWidth     =   6675
   Height          =   4950
   Left            =   1395
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   4605
   ScaleWidth      =   6675
   ShowInTaskbar   =   0   'False
   Top             =   1935
   Width           =   6735
   Begin VB.TextBox Text2
      Height          =   285
      Left            =   1890
      TabIndex        =   5
      Top             =   3870
      Visible         =   0   'False
      Width           =   4695
   End
   Begin VB.TextBox Text1
      Height          =   285
      Left            =   1890
      TabIndex        =   3
      Top             =   3510
      Width           =   4695
   End
   Begin VB.ListBox List1
      Height          =   2955
      Left            =   90
      TabIndex        =   1
      Top             =   360
      Width           =   6495
   End
   Begin VB.Label Label3
      Caption         =   "Encryption is"
      Height          =   195
      Left            =   90
      TabIndex        =   6
      Top             =   4260
      Width           =   1725
   End
   Begin VB.Label Label4
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   285
      Left            =   1890
      TabIndex        =   7
      Top             =   4230
      Width           =   4695
   End
   Begin VB.Label Label5
      Caption         =   "Enter a &key"
      Height          =   195
      Left            =   90
      TabIndex        =   4
      Top             =   3900
      Visible         =   0   'False
      Width           =   1725
   End
   Begin VB.Label Label2
      Caption         =   "Enter a &string "
      Height          =   195
      Left            =   90
      TabIndex        =   2
      Top             =   3540
      Width           =   1725
   End
   Begin VB.Line Line1
      BorderColor     =   &H00FFFFFF&
      BorderStyle     =   6  'Inside Solid
      BorderWidth     =   2
      X1              =   0
      X2              =   6660
      Y1              =   3420
      Y2              =   3420
   End
   Begin VB.Label Label1
      Caption         =   "Encryption Samples"
      Height          =   195
      Left            =   90
      TabIndex        =   0
      Top             =   90
      Width           =   6495
   End
Attribute VB_Name = "frmGZip"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
   Dim i          As Integer
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim TmpE       As String
   Dim TmpD       As String
   Dim Data       As String
   Dim Value      As String
   TmpE = "GZIPstringCompress of '"
   Tmp2 = "' is '"
   TmpD = "GZIPstringExpand of '"
   List1.Clear
   Data = "ABCDEFGHIJKLMNOP"
   List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
   Data = "ABCDEFGHIJKLMNO"
   List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
   Data = "ABCDEFGHIJKLMN"
   List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
   Data = "ABCDEFGHIJKLM"
   List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
   Data = "ABCDEFGHIJKL"
   List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
   Data = "ABCDEFGHIJK"
   List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
   Data = "ABCDEFGHIJ"
   List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
   List1.AddItem ""
   Data = cGZIPStringCompress("ABCDEFGHIJKLMNOP")
   List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
   Data = cGZIPStringCompress("ABCDEFGHIJKLMNO")
   List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
   Data = cGZIPStringCompress("ABCDEFGHIJKLMN")
   List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
   Data = cGZIPStringCompress("ABCDEFGHIJKLM")
   List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
   Data = cGZIPStringCompress("ABCDEFGHIJKL")
   List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
   Data = cGZIPStringCompress("ABCDEFGHIJK")
   List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
   Data = cGZIPStringCompress("ABCDEFGHIJ")
   List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
   Text1.Text = "mc security"
   Text2.Text = "1234567"
End Sub
Private Sub Text1_Change()
   Label4.Caption = RemoveNull(cGZIPStringCompress(Text1.Text))
End Sub
Private Sub Text2_Change()
   Label4.Caption = RemoveNull(cGZIPStringCompress(Text1.Text))
End Sub